Public Class Main

    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        My.Application.ChangeCulture("th-TH")
    End Sub

    Private Sub RegisterFrm_Executed(sender As Object, e As EventArgs) Handles RegisterFrm.Executed
        For Each f As Form In Application.OpenForms
            If TypeOf f Is RegisterFrm Then
                f.WindowState = FormWindowState.Maximized
                f.Activate()
                Exit Sub
            End If
        Next
        Dim doc As New RegisterFrm()
        doc.Text = "RegisterFrm"
        doc.MdiParent = Me
        doc.WindowState = FormWindowState.Maximized
        doc.Show()
        doc.Update()
    End Sub

    Private Sub ButtonItem14_Click(sender As Object, e As EventArgs) Handles ButtonItem14.Click
        RegisterFrm.Execute()
    End Sub

    Private Sub Operative_Executed(sender As Object, e As EventArgs) Handles Operative.Executed
        For Each f As Form In Application.OpenForms
            If TypeOf f Is OperativeFrm Then
                f.WindowState = FormWindowState.Maximized
                f.Activate()
                Exit Sub
            End If
        Next
        Dim doc As New OperativeFrm()
        doc.Text = "OperativeFrm"
        doc.MdiParent = Me
        doc.WindowState = FormWindowState.Maximized
        doc.Show()
        doc.Update()
    End Sub

    Private Sub ButtonItem15_Click(sender As Object, e As EventArgs) Handles ButtonItem15.Click
        Operative.Execute()
    End Sub

    Private Sub HNresult_Executed(sender As Object, e As EventArgs) Handles HNresult.Executed
        For Each f As Form In Application.OpenForms
            If TypeOf f Is HNresult Then
                f.WindowState = FormWindowState.Maximized
                f.Activate()
                Exit Sub
            End If
        Next
        Dim doc As New HNresult()
        doc.Text = "HNresult"
        doc.MdiParent = Me
        doc.WindowState = FormWindowState.Maximized
        doc.Show()
        doc.Update()
    End Sub

    Private Sub HNeducations_Executed(sender As Object, e As EventArgs) Handles HNeducations.Executed
        For Each f As Form In Application.OpenForms
            If TypeOf f Is HNeducations Then
                f.WindowState = FormWindowState.Maximized
                f.Activate()
                Exit Sub
            End If
        Next
        Dim doc As New HNeducations()
        doc.Text = "HNeducations"
        doc.MdiParent = Me
        doc.WindowState = FormWindowState.Maximized
        doc.Show()
        doc.Update()
    End Sub

    Private Sub StatFoot_Executed(sender As Object, e As EventArgs) Handles StatFoot.Executed
        For Each f As Form In Application.OpenForms
            If TypeOf f Is StatFoot Then
                f.WindowState = FormWindowState.Maximized
                f.Activate()
                Exit Sub
            End If
        Next
        Dim doc As New StatFoot()
        doc.Text = "StatFoot"
        doc.MdiParent = Me
        doc.WindowState = FormWindowState.Maximized
        doc.Show()
        doc.Update()
    End Sub

    Private Sub StatOperative_Executed(sender As Object, e As EventArgs) Handles StatOperative.Executed
        For Each f As Form In Application.OpenForms
            If TypeOf f Is StatOperative Then
                f.WindowState = FormWindowState.Maximized
                f.Activate()
                Exit Sub
            End If
        Next
        Dim doc As New StatOperative()
        doc.Text = "StatOperative"
        doc.MdiParent = Me
        doc.WindowState = FormWindowState.Maximized
        doc.Show()
        doc.Update()
    End Sub

    Private Sub StatPatient_Executed(sender As Object, e As EventArgs) Handles StatPatient.Executed
        For Each f As Form In Application.OpenForms
            If TypeOf f Is StatPatient Then
                f.WindowState = FormWindowState.Maximized
                f.Activate()
                Exit Sub
            End If
        Next
        Dim doc As New StatPatient()
        doc.Text = "StatPatient"
        doc.MdiParent = Me
        doc.WindowState = FormWindowState.Maximized
        doc.Show()
        doc.Update()
    End Sub

    Private Sub ButtonItem16_Click(sender As Object, e As EventArgs) Handles ButtonItem16.Click
        HNresult.Execute()
    End Sub

    Private Sub ButtonItem17_Click(sender As Object, e As EventArgs) Handles ButtonItem17.Click
        HNeducations.Execute()
    End Sub

    Private Sub ButtonItem20_Click(sender As Object, e As EventArgs) Handles ButtonItem20.Click
        StatFoot.Execute()
    End Sub

    Private Sub ButtonItem19_Click(sender As Object, e As EventArgs) Handles ButtonItem19.Click
        StatOperative.Execute()
    End Sub

    Private Sub ButtonItem18_Click(sender As Object, e As EventArgs) Handles ButtonItem18.Click
        StatPatient.Execute()
    End Sub

End Class